inherited frmRelTitular: TfrmRelTitular
  Left = 488
  Top = 239
  Caption = 'Relat'#243'rio de Titulares e Dependentes'
  ClientHeight = 290
  ClientWidth = 444
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnlOpcoes: TPanel
    Width = 444
    Height = 205
    object Label2: TLabel
      Left = 16
      Top = 56
      Width = 35
      Height = 13
      Caption = 'Pessoa'
    end
    object Label3: TLabel
      Left = 16
      Top = 104
      Width = 27
      Height = 13
      Caption = 'Plano'
    end
    object Label4: TLabel
      Left = 16
      Top = 152
      Width = 96
      Height = 13
      Caption = 'Per'#237'odo de Contrato'
    end
    object Label5: TLabel
      Left = 120
      Top = 174
      Width = 6
      Height = 13
      Caption = 'a'
    end
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 41
      Height = 13
      Caption = 'Empresa'
    end
    object edt_Pessoa: TEdit
      Left = 16
      Top = 72
      Width = 65
      Height = 21
      CharCase = ecUpperCase
      TabOrder = 3
      OnExit = edt_PessoaExit
    end
    object stPessoa: TStaticText
      Left = 104
      Top = 72
      Width = 257
      Height = 21
      AutoSize = False
      BorderStyle = sbsSingle
      TabOrder = 5
    end
    object edt_DataInicial: TEdit
      Left = 16
      Top = 168
      Width = 100
      Height = 21
      CharCase = ecUpperCase
      TabOrder = 9
      OnExit = edt_DataInicialExit
    end
    object btnPessoa: TBitBtn
      Left = 80
      Top = 72
      Width = 25
      Height = 21
      Caption = '...'
      TabOrder = 4
      TabStop = False
      OnClick = btnPessoaClick
    end
    object btnPlano: TBitBtn
      Left = 80
      Top = 120
      Width = 25
      Height = 21
      Caption = '...'
      TabOrder = 7
      TabStop = False
      OnClick = btnPlanoClick
    end
    object edt_DataFinal: TEdit
      Left = 132
      Top = 168
      Width = 100
      Height = 21
      CharCase = ecUpperCase
      TabOrder = 10
      OnExit = edt_DataFinalExit
    end
    object edt_Empresa: TEdit
      Left = 16
      Top = 32
      Width = 64
      Height = 21
      CharCase = ecUpperCase
      TabOrder = 0
      OnExit = edt_EmpresaExit
    end
    object btnEmpresa: TBitBtn
      Left = 80
      Top = 32
      Width = 25
      Height = 21
      Caption = '...'
      TabOrder = 1
      TabStop = False
      OnClick = btnEmpresaClick
    end
    object stEmpresa: TStaticText
      Left = 104
      Top = 32
      Width = 257
      Height = 21
      AutoSize = False
      BorderStyle = sbsSingle
      TabOrder = 2
    end
    object edt_Plano: TEdit
      Left = 16
      Top = 120
      Width = 65
      Height = 21
      TabOrder = 6
      OnExit = edt_PlanoExit
    end
    object stPlano: TStaticText
      Left = 104
      Top = 120
      Width = 257
      Height = 21
      AutoSize = False
      BorderStyle = sbsSingle
      TabOrder = 8
    end
  end
  inherited pnlBotoes: TPanel
    Top = 246
    Width = 444
  end
  inherited pnlCabecalho: TPanel
    Width = 444
    Caption = 'Titulares e Dependentes'
  end
  inherited sql_dataset_principal: TSQLClientDataSet
    CommandText = 
      'SELECT'#13#10'PE.PES_IDFCOD,'#13#10'PE.PES_NOME,'#13#10'PE.PES_CODIGO,'#13#10'PE.PES_NAS' +
      'CIM,'#13#10'PE.PES_CIDADE,'#13#10'PE.PES_ESTADO,'#13#10'PL.PLA_DESCRICAO,'#13#10'DE.DEP_' +
      'DEPENDENTEIDF,'#13#10'DE.DEP_NOME,'#13#10'DE.DEP_ESTADOCIVIL,'#13#10'DE.DEP_DATANA' +
      'SCIMENTO,'#13#10'DE.DEP_GRAU,'#13#10'DE.DEP_SEXO,'#13#10'CO.PCN_CONTRATOCOD,'#13#10'CO.P' +
      'CN_DATAINICIO,'#13#10'CO.PCN_DATAFIM,'#13#10'CO.PCN_VALORMENSAL'#13#10'FROM PESSOA' +
      'S_CONTRATOS CO'#13#10'INNER JOIN PESSOAS PE ON (CO.PCN_PESSOAIDF=PE.PE' +
      'S_IDFCOD)'#13#10'INNER JOIN PESSOA_DEPENDENTES DE ON (DE.DEP_PESSOAIDF' +
      '=CO.PCN_PESSOAIDF)'#13#10'INNER JOIN PESSOAS_PLANOS PL ON (PL.PLA_CODI' +
      'GO=CO.PCN_PLANOIDF)'
    Left = 208
    Top = 49
  end
  inherited rds_dataset_principal: TRvDataSetConnection
    Left = 288
    Top = 73
  end
  inherited RvSystemPDF: TRvSystem
    Left = 408
    Top = 9
  end
  object RDS_PESSOAS: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = SQLC_PESSOAS
    Left = 356
    Top = 165
  end
  object SQLC_PESSOAS: TZReadOnlyQuery
    Connection = DtmGeral.ZConexaoBanco
    SQL.Strings = (
      'SELECT DISTINCT'
      'PE.PES_IDFCOD,'
      'PE.PES_NOME,'
      'PE.PES_CODIGO,'
      'PE.PES_NASCIM,'
      'PE.PES_CIDADE,'
      'PE.PES_ESTADO,'
      'CID.CID_DESCRI'
      'FROM PESSOAS PE '
      
        'INNER JOIN CIDADES CID ON CID.CID_CODIGO = PE.PES_CIDADE AND CID' +
        '.CID_ESTCOD = PE.PES_ESTADO'
      'inner join pessoas_contratos co'
      'on co.pcn_pessoaidf = pe.pes_idfcod'
      'ORDER BY PE.PES_IDFCOD')
    Params = <>
    Left = 128
    Top = 113
    object SQLC_PESSOASPES_IDFCOD: TIntegerField
      FieldName = 'PES_IDFCOD'
      Required = True
    end
    object SQLC_PESSOASPES_NOME: TStringField
      FieldName = 'PES_NOME'
      Required = True
      Size = 60
    end
    object SQLC_PESSOASPES_CODIGO: TStringField
      FieldName = 'PES_CODIGO'
      Size = 15
    end
    object SQLC_PESSOASPES_NASCIM: TDateField
      FieldName = 'PES_NASCIM'
    end
    object SQLC_PESSOASPES_CIDADE: TStringField
      FieldName = 'PES_CIDADE'
      Required = True
      Size = 3
    end
    object SQLC_PESSOASPES_ESTADO: TStringField
      FieldName = 'PES_ESTADO'
      Required = True
      Size = 2
    end
    object SQLC_PESSOASCID_DESCRI: TStringField
      FieldName = 'CID_DESCRI'
      Required = True
      Size = 40
    end
  end
  object SQLC_CONTRATOS: TZReadOnlyQuery
    Connection = DtmGeral.ZConexaoBanco
    SQL.Strings = (
      'SELECT'
      'CO.PCN_PESSOAIDF,'
      'PL.PLA_DESCRICAO,'
      'CO.PCN_CONTRATOIDF,'
      'CO.PCN_CONTRATOCOD,'
      'CO.PCN_DATAINICIO,'
      'CO.PCN_DATAFIM,'
      'CO.PCN_VALORMENSAL'
      'FROM PESSOAS_CONTRATOS CO'
      'INNER JOIN PESSOAS_PLANOS PL ON (PL.PLA_CODIGO=CO.PCN_PLANOIDF)'
      
        'WHERE (CAST(CO.PCN_DATAINICIO AS DATE) BETWEEN :DATA01 AND :DATA' +
        '02)'
      'OR (CAST(CO.PCN_DATAFIM AS DATE) BETWEEN :DATA01 AND :DATA02)'
      'ORDER BY CO.PCN_CONTRATOIDF')
    Params = <
      item
        DataType = ftUnknown
        Name = 'DATA01'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DATA02'
        ParamType = ptUnknown
      end>
    Left = 264
    Top = 201
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'DATA01'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DATA02'
        ParamType = ptUnknown
      end>
    object SQLC_CONTRATOSPCN_PESSOAIDF: TIntegerField
      FieldName = 'PCN_PESSOAIDF'
      Required = True
    end
    object SQLC_CONTRATOSPLA_DESCRICAO: TStringField
      FieldName = 'PLA_DESCRICAO'
      Required = True
      Size = 60
    end
    object SQLC_CONTRATOSPCN_CONTRATOIDF: TIntegerField
      FieldName = 'PCN_CONTRATOIDF'
      Required = True
    end
    object SQLC_CONTRATOSPCN_CONTRATOCOD: TStringField
      FieldName = 'PCN_CONTRATOCOD'
      Required = True
      Size = 13
    end
    object SQLC_CONTRATOSPCN_DATAINICIO: TDateField
      FieldName = 'PCN_DATAINICIO'
    end
    object SQLC_CONTRATOSPCN_DATAFIM: TDateField
      FieldName = 'PCN_DATAFIM'
    end
    object SQLC_CONTRATOSPCN_VALORMENSAL: TFloatField
      FieldName = 'PCN_VALORMENSAL'
    end
  end
  object SQLC_DEPENDENTES: TZReadOnlyQuery
    Connection = DtmGeral.ZConexaoBanco
    SQL.Strings = (
      'SELECT'
      'DE.DEP_PESSOAIDF,'
      'DE.DEP_DEPENDENTEIDF,'
      'DE.DEP_NOME,'
      'DE.DEP_ESTADOCIVIL,'
      'DE.DEP_DATANASCIMENTO,'
      'DE.DEP_GRAU,'
      'DE.DEP_SEXO,'
      'PP.PAR_DESCRICAO'
      'FROM PESSOA_DEPENDENTES DE '
      'INNER JOIN PESSOA_PARENTESCOS PP ON PP.PAR_CODIGO = DE.DEP_GRAU'
      'ORDER BY DE.DEP_DEPENDENTEIDF')
    Params = <>
    Left = 128
    Top = 161
    object SQLC_DEPENDENTESDEP_PESSOAIDF: TIntegerField
      FieldName = 'DEP_PESSOAIDF'
      Required = True
    end
    object SQLC_DEPENDENTESDEP_DEPENDENTEIDF: TIntegerField
      FieldName = 'DEP_DEPENDENTEIDF'
      Required = True
    end
    object SQLC_DEPENDENTESDEP_NOME: TStringField
      FieldName = 'DEP_NOME'
      Required = True
      Size = 60
    end
    object SQLC_DEPENDENTESDEP_ESTADOCIVIL: TStringField
      FieldName = 'DEP_ESTADOCIVIL'
      Size = 1
    end
    object SQLC_DEPENDENTESDEP_DATANASCIMENTO: TDateField
      FieldName = 'DEP_DATANASCIMENTO'
    end
    object SQLC_DEPENDENTESDEP_GRAU: TIntegerField
      FieldName = 'DEP_GRAU'
      Required = True
    end
    object SQLC_DEPENDENTESDEP_SEXO: TStringField
      FieldName = 'DEP_SEXO'
      Required = True
      Size = 1
    end
    object SQLC_DEPENDENTESPAR_DESCRICAO: TStringField
      FieldName = 'PAR_DESCRICAO'
      Required = True
      Size = 40
    end
  end
  object RDS_CONTRATOS: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = SQLC_CONTRATOS
    Left = 368
    Top = 81
  end
  object RDS_DEPENDENTES: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = SQLC_DEPENDENTES
    Left = 360
    Top = 224
  end
  object Ds_Pessoas: TDataSource
    DataSet = SQLC_PESSOAS
    Left = 288
    Top = 137
  end
end
